home *** CD-ROM | disk | FTP | other *** search
- LISTING 4
- A Basic Timer Function
- /*
- Hang until delay has expired.
-
- delay in milliseconds
- */
- BOOL Sleep( long delay ) {
- long timer, // current time
- base, // starting time
- elapsed; // time spent in loop
-
- if ( !delay ) return(FALSE);
- base = clock();
- if ( base == -1 ) return(FALSE);
- do {
- timer = clock();
- if ( timer == -1L ) return(FALSE);
- elapsed = timer - base;
- } while ( delay > elapsed );
- return(TRUE);
- }
-
-